--	nicerSum sums every item in a list, its quiet ... short
nicerSum :: [Integer] -> Integer
nicerSum = foldl (+) 0

main = do putStrLn "nicerSum([1..1000])" 
          print (nicerSum([1..1000]))